home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / fldlinks.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  3.9 KB  |  117 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'Fldlinks.pas' rev: 3.00
  6.  
  7. #ifndef FldlinksHPP
  8. #define FldlinksHPP
  9. #include <DsgnIntf.hpp>
  10. #include <Buttons.hpp>
  11. #include <DBTables.hpp>
  12. #include <Db.hpp>
  13. #include <ExtCtrls.hpp>
  14. #include <StdCtrls.hpp>
  15. #include <Forms.hpp>
  16. #include <Controls.hpp>
  17. #include <Graphics.hpp>
  18. #include <Classes.hpp>
  19. #include <Messages.hpp>
  20. #include <Windows.hpp>
  21. #include <SysUtils.hpp>
  22. #include <SysInit.hpp>
  23. #include <System.hpp>
  24.  
  25. //-- user supplied -----------------------------------------------------------
  26.  
  27. namespace Fldlinks
  28. {
  29. //-- type declarations -------------------------------------------------------
  30. class DELPHICLASS TLinkFields;
  31. class PASCALIMPLEMENTATION TLinkFields : public Forms::TForm 
  32. {
  33.     typedef Forms::TForm inherited;
  34.     
  35. __published:
  36.     Stdctrls::TListBox* DetailList;
  37.     Stdctrls::TListBox* MasterList;
  38.     Stdctrls::TListBox* BindList;
  39.     Stdctrls::TLabel* Label30;
  40.     Stdctrls::TLabel* Label31;
  41.     Stdctrls::TComboBox* IndexList;
  42.     Stdctrls::TLabel* IndexLabel;
  43.     Dbtables::TTable* Table1;
  44.     Stdctrls::TLabel* Label2;
  45.     Extctrls::TBevel* Bevel1;
  46.     Extctrls::TBevel* Bevel2;
  47.     Stdctrls::TButton* AddButton;
  48.     Stdctrls::TButton* DeleteButton;
  49.     Stdctrls::TButton* ClearButton;
  50.     Stdctrls::TButton* Button1;
  51.     Stdctrls::TButton* Button2;
  52.     Stdctrls::TButton* Help;
  53.     void __fastcall FormCreate(System::TObject* Sender);
  54.     void __fastcall BindingListClick(System::TObject* Sender);
  55.     void __fastcall AddButtonClick(System::TObject* Sender);
  56.     void __fastcall DeleteButtonClick(System::TObject* Sender);
  57.     void __fastcall BindListClick(System::TObject* Sender);
  58.     void __fastcall ClearButtonClick(System::TObject* Sender);
  59.     void __fastcall FormDestroy(System::TObject* Sender);
  60.     void __fastcall BitBtn1Click(System::TObject* Sender);
  61.     void __fastcall HelpClick(System::TObject* Sender);
  62.     void __fastcall IndexListChange(System::TObject* Sender);
  63.     
  64. private:
  65.     System::AnsiString FFullIndexName;
  66.     Classes::TStringList* OrderedDetailList;
  67.     Classes::TStringList* OrderedMasterList;
  68.     bool Local;
  69.     void __fastcall OrderFieldList(Classes::TStrings* OrderedList, Classes::TStrings* List);
  70.     
  71. public:
  72.     System::AnsiString MasterFieldList;
  73.     System::AnsiString IndexFieldList;
  74.     void __fastcall AddToBindList(const System::AnsiString Str1, const System::AnsiString Str2);
  75.     void __fastcall Initialize(Dbtables::TTable* Table, const Db::TDataSet* DataSet);
  76.     __property System::AnsiString FullIndexName = {read=FFullIndexName};
  77. public:
  78.     /* TCustomForm.Create */ __fastcall virtual TLinkFields(Classes::TComponent* AOwner) : Forms::TForm(
  79.         AOwner) { }
  80.     /* TCustomForm.CreateNew */ __fastcall TLinkFields(Classes::TComponent* AOwner, int Dummy) : Forms::
  81.         TForm(AOwner, Dummy) { }
  82.     /* TCustomForm.Destroy */ __fastcall virtual ~TLinkFields(void) { }
  83.     
  84. public:
  85.     /* TWinControl.CreateParented */ __fastcall TLinkFields(HWND ParentWindow) : Forms::TForm(ParentWindow
  86.         ) { }
  87.     
  88. };
  89.  
  90. class DELPHICLASS TFieldLinkProperty;
  91. class PASCALIMPLEMENTATION TFieldLinkProperty : public Dsgnintf::TPropertyEditor 
  92. {
  93.     typedef Dsgnintf::TPropertyEditor inherited;
  94.     
  95. public:
  96.     virtual void __fastcall Edit(void);
  97.     virtual Dsgnintf::TPropertyAttributes __fastcall GetAttributes(void);
  98.     virtual System::AnsiString __fastcall GetValue(void);
  99.     virtual void __fastcall SetValue(const System::AnsiString Value);
  100. public:
  101.     /* TPropertyEditor.Destroy */ __fastcall virtual ~TFieldLinkProperty(void) { }
  102.     
  103. public:
  104.     /* TObject.Create */ __fastcall TFieldLinkProperty(void) : Dsgnintf::TPropertyEditor() { }
  105.     
  106. };
  107.  
  108. //-- var, const, procedure ---------------------------------------------------
  109. extern PACKAGE TLinkFields* LinkFields;
  110.  
  111. }    /* namespace Fldlinks */
  112. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  113. using namespace Fldlinks;
  114. #endif
  115. //-- end unit ----------------------------------------------------------------
  116. #endif    // Fldlinks
  117.